home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
graphics
/
blob1.arj
/
RAW_DXF.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-02-09
|
1KB
|
64 lines
' RAW TO DXF TRANSLATOR by Alfonso Hermida 2/8/94
' Pi Squared BBS (301)725-9080
' CIS 72114,2060 (GraphDev Forum)
'
' Compatible with QBasic and QuickBasic
'----------------------------------------------------------------
CLS
LOCATE 1, 1: PRINT "RAW to DXF Translator by Alfonso Hermida"
LOCATE 3, 1
INPUT "Enter RAW data file name (leave blank to quit)", RAW$
IF RAW$ = "" THEN END
DOT = INSTR(RAW$, ".")
IF DOT = 0 THEN RAW$ = RAW$ + ".raw"
DOT = INSTR(RAW$, ".")
ROOT$ = LEFT$(RAW$, DOT - 1)
INPUT "Enter name for DXF ", DXF$
IF DXF$ = "" THEN DXF$ = ROOT$
IF INSTR(DXF$, ".") = 0 THEN DXF$ = DXF$ + ".dxf"
OPEN RAW$ FOR INPUT AS #1
OPEN DXF$ FOR OUTPUT AS #2
PRINT #2, 0
PRINT #2, "SECTION"
PRINT #2, 2
PRINT #2, "ENTITIES"
DO WHILE NOT EOF(1)
PRINT #2, 0
PRINT #2, "3DFACE"
INPUT #1, x, y, z
PRINT #2, 10: PRINT #2, x
PRINT #2, 20: PRINT #2, y
PRINT #2, 30: PRINT #2, z
INPUT #1, x, y, z
PRINT #2, 11: PRINT #2, x
PRINT #2, 21: PRINT #2, y
PRINT #2, 31: PRINT #2, z
INPUT #1, x, y, z
PRINT #2, 12: PRINT #2, x
PRINT #2, 22: PRINT #2, y
PRINT #2, 32: PRINT #2, z
' repeat las point!
PRINT #2, 13: PRINT #2, x
PRINT #2, 23: PRINT #2, y
PRINT #2, 33: PRINT #2, z
LOOP
CLOSE #1
PRINT #2, 0
PRINT #2, "ENDSEC"
PRINT #2, 0
PRINT #2, "EOF"
CLOSE #2